home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 242 / 242.d81 / steam train (.txt) < prev    next >
Commodore BASIC  |  2022-08-26  |  209b  |  14 lines
  1. 9100 rem steam train
  2. 9110 poke54296,15
  3. 9120 d=450
  4. 9130 fora=1to300
  5. 9140 gosub9180
  6. 9150 ifd=45then9170
  7. 9160 d=d-5
  8. 9170 nexta:return
  9. 9180 poke54277,64:poke54278,48
  10. 9190 poke54273,50:poke54272,100
  11. 9200 poke54276,129:fort=1to10:nextt
  12. 9210 poke54276,128:fort=1tod:nextt
  13. 9220 return
  14.